home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / RootParent.dopus5 < prev    next >
Text File  |  1998-08-12  |  774b  |  25 lines
  1. /*
  2. $VER: RootParent.dopus5 1.2 (12.8.98)
  3. Replaces internal Root and Parent commands with versions that will display the
  4. Device List if in the root of a device.
  5.  
  6. USAGE: Put it into DOpus5:Modules/ It will replace the existing
  7.        Root and Parent command functions.
  8.  */
  9. Options results
  10. parse arg port func srce dest args .
  11. address value port
  12.  
  13. if func = 'init' then do
  14.   dopus command "Root" program "RootParent" desc "Root/Devices" template "UNSELECT/S"
  15.   dopus command "Parent" program "RootParent" desc "Parent/Devices" template "UNSELECT/S"
  16.   exit
  17. end
  18.  
  19. lister query srce path
  20. path = result
  21. if upper(args) = 'UNSELECT' then command source srce wait none
  22. if right(path,1) = ':' then command source srce wait devicelist full
  23.     else command source srce original func
  24. exit
  25.